home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
C64
/
A-Monthly Disks
/
(c)aaf.d64
/
airbattle
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2007-02-04
|
12KB
|
373 lines
0 REM 'AIRBATTLE' BY LARRY IRELAND
1 POKE53272,21
5 PRINT"[147]PLEASE LEAVE THE GAME DISK IN THE DISK DRIVE.THE GAME NEEDS THE DATA
10 [151]53281,6 :[151]53280,14:D[178]6:UU[178][187]([171]TI)
20 V[178]53248:[143] START OF DISPLAY CHIP
21 [151] V[170]16,0:CT[178]1:LM[178]255:LN[178]256:MM[178]2[170]2[172]D:YM[178]LM:DD[178]2[172]D:LF[178]252:LR[178]258
22 [151] V[170]21,LM: [143] ENABLE ALL SPRITES
23 Z[178]0:C1[178]1:C2[178]2:C3[178]3:C4[178]4:C5[178]5:C6[178]6:C7[178]7:C8[178]8:C9[178]9:C0[178]10:CA[178]11:CB[178]12:CC[178]13
24 CD[178]14:CE[178]15:CF[178]16:CG[178]17:CH[178]18:CI[178]19:CJ[178]20
25 [129] X[178]Z[164]14:[151]V[170]X,Z:[130] X
30 [129] N[178]Z[164]62:[135] Q:[151] 832[170]N,Q:[130]
31 [129] N[178]Z[164]62:[135] Q:[151] 896[170]N,Q:[130]
33 [129] N[178]Z[164]62:[135] Q:[151] 960[170]N,Q:[130]
40 [129] X[178]Z [164] C3:[151]2040[170]C2[172]X,13:[151] 2041[170]C2[172]X,14:[130] X
45 [143] #0,2,4=ENEMY JETS;#1,3,5,7=BULLETS (#6 WILL BE CHANGED TO 'HERO')
50 [151] 2046,15:[151]V[170]45,7:[151]V[170]46,7
60 J[178]Z:A[178]Z :[143] J=COLOUR OF ENEMY JETS & A=COLOUR OF BULLETS
65 [151]V[170]39,J:[151]V[170]41,J:[151]V[170]43,J:[151]V[170]40,A:[151]V[170]42,A:[151]V[170]44,A
90 [151] V[170]23,Z :[151] V[170]29,LM :[143] EXPAND ALL SPRITES
100 XX[178]160:YY[178]225:HD[178]Z
101 [151] V[170]CB,XX:[151] V[170]CC,YY:[151]V[170]CE,LM
103 [159]15,8,15:[159] 3,8,3," AIRBATTLESCORE,S,R":[132]15,A$,B$,C$,D$
104 [139] A$[179][177]"00"[167] [160]3:[160]15:SJ[178]1:[137]108
105 [132]3,JS,JP$
106 [160]3:[160]15
108 [153]"LOADTHE HIGHEST SCORE TO DATE ON THIS DISK IS ";
110 [139]SJ[178]1 [167] [153]"NOT AVAILABLE.":[137] 115
112 [153]"WAIT"JS" PTS. BY WAIT'";JP$;"'"
115 [153]"WAIT DO YOU WANT GAME INSTRUCTIONS ?"
116 [153]," (Y/N)"
117 [161] K$: [139] K$[178]"" [167] 117
118 [139] K$[178]"Y" [167] [141] 2000
119 [139] K$[178]"N" [167] 125
120 [137] 115
125 MM[178]C2[170]C2[172]D:DD[178]C2[172]D:[151]V[170]21,LM:CT[178]Z
130 [153]"LOAD"
135 [143]
136 [143] RECYCLE PT IS LINE 140*********
137 [143]
138 [143] SETUP X CO-ORD ENEMY JETS***140
139 [143]
140 [151]V[170]C1,CF:[151]V[170]C3,CF:[151]V[170]C5,CF:[151]V[170]C7,CF:[151]V[170]C9,CF:[151]V[170]CA,CF
141 R[178]Z:D1[178]Z:D2[178]Z:D3[178]Z:[151]V[170]30,0
145 [153]"YOUR SCORE IS ";TS[170]SC"CMD WAIT":[153][163]21)"ONPOINTS"
150 PF[178][181]([187](C1)[172]278)[170]20
160 PS[178][181]([187](C1)[172]278)[170]20
170 PT[178][181]([187](C1)[172]278)[170]20:[139] R[178]C1 [167] [203] [164] 250
180 FF[178][181]([187](C1)[172]75)[170]50
183 FS[178][181]([187](C1)[172]75)[170]50
186 FT[178][181]([187](C1)[172]75)[170]50
190 S [178]20[172][181]([187](C1)[172]C5):BS[178][181]([187](C1)[172]C4)
193 T [178]20[172][181]([187](C1)[172]C6):BT[178][181]([187](C1)[172]C4)
200 [139] PF[177]LM [167] [137] 1010
210 [151]V[170]Z,PF:[151]V[170]C2,PF
220 [139] [182](PF[171]PS)[179]55 [167] PS[178]PF[170]55
225 [139] PS[177]298 [167] PS[178]PF[171]55
230 [139] PS[177]LM [167] [137] 1020
240 [151]V[170]4,PS:[151]V[170]6,PS
250 [139] [182](PF[171]PT)[179]55 [176] [182](PS[171]PT)[179]55 [167] R[178]1:[137] 170
260 [139] PT[177]LM [167] [137] 1030
265 [151]V[170]8,PT:[151]V[170]10,PT
270 [143] LEAVE THIS LINE IN.......
298 [143]
299 [143] Y CO-ORD OF ENEMY JETS******300
300 [129] Y[178]CF [164] 380 [169] D
304 [139] D1[177]Z [167] [137] 310
305 [139] Y[179]LM [167] [151]V[170]C1,Y :[137] 310
306 [151]V[170]C1,LM[171]1:FF[178]400:D1[178]1:SC[178]SC[171]50
310 [139] D2[177]Z [167] [137] 315
311 [139] Y[177]S [175] Y[179]LM[170]S [167] [151]V[170]C5,Y[171]S:[137] 315
312 [151]V[170]C5,LM[171]1:[139]Y[177]LM[170]S [167] D2[178]1:FS[178]400:SC[178]SC[171]50
315 [139] D3[177]Z [167] [137] 320
316 [139] Y[177]T [175] Y[179]LM[170]T [167] [151]V[170]C9,Y[171]T:[137] 320
317 [151]V[170]C9,LM[171]1:[139]Y[177]LM[170]T [167]D3[178]1:FT[178]400:SC[178]SC[171]50
320 [139] Y[177]LM[170]S [175] Y[177]LM[170]T [167] Y[178]380: [137] 990
321 [139] D2[177]Z [175] Y[177]LM[170]T [175] YS[177]LM [167] Y[178]380:[137] 990
322 [139] D3[177]Z [175] Y[177]LM[170]S [167] Y[178]380:[137] 990
323 :
324 [143] Y CO-ORD OF ENEMY BULLETS***325
325 [139] BS[178]Z [175] BT[178]Z [167] [137] 400
330 [139]Y[179]FF[167]361
335 [139][194](V[170]C3)[178]CF[167][151]V[170]C3,Y[170]20
340 Q[178][194](V[170]C3):Q[178]Q[170]DD:[139]Q[177]LM[167][151]V[170]C3,LM:[137]350
345 [151]V[170]C3,Q:[137]361
350 [139]D1[177]Z [167]FF[178]400:[151]V[170]C3,CF:[137]361
355 Q[178][194](V[170]C1)[170]20:[139]Q[177]205[167]361
358 [151]V[170]C3,Q
360 [143] BULLETS FOR SECOND ENEMY JET.
361 [139] BS[178]C1 [167] [137] 376
362 [139]Y[179]FS[170]S [167]376
364 [139][194](V[170]C7)[178]CF[167][151]V[170]C7,Y[171]S[170]20
366 Q[178][194](V[170]C7):Q[178]Q[170]DD:[139]Q[177]LM[167][151]V[170]C7,LM:[137]369
368 [151]V[170]C7,Q:[137]376
369 [139]D2[177]Z [167]FS[178]400:[151]V[170]C7,CF:[137]376
370 Q[178][194](V[170]C5)[170]20:[139]Q[177]205[167]376
372 [151]V[170]C7,Q
375 [143] BULLETS FOR THIRD ENEMY JET.
376 [139] BT[178]C1 [167] [137] 400
377 [139]Y[179]FT[170]T [167]400
380 [139][194](V[170]CA)[178]CF[167][151]V[170]CA,Y[171]T[170]20
383 Q[178][194](V[170]CA):Q[178]Q[170]DD:[139]Q[177]LM[167][151]V[170]CA,LM:[137]388
386 [151]V[170]CA,Q:[137]400
388 [139]D3[177]Z [167]FT[178]400:[151]V[170]CA,CF:[137]400
390 Q[178][194](V[170]C9)[170]20:[139]Q[177]225[167]400
395 [151]V[170]CA,Q
398 :
399 [143] MOVEMENT OF 'HERO'**********400
400 [161] H$ :[139] H$[178]""[167]500
401 [139] YM[177]207 [175]H$[178][199](32)[167]YM[178]206:[137]520
403 [139] H$[178][199](29)[167] [137]450:[143] RIGHT
404 [139] H$[178][199](17)[167] [137]414:[143] LEFT
405 [137] 500
414 [139] XX[179]LN [167] XX[178]XX[171]MM:[137] 440
415 XX[178]XX[171]MM:[139] XX[179]LN [167] 1100
420 [151] V[170]12,(XX[171]LM):[137] 500
440 [139] XX[179]20 [167] XX[178]20
445 [151] V[170]12,XX :[137] 500
450 [139] XX[177]LM [167] [137] 480
455 XX[178]XX[170]MM:[139] XX[177]LM [167] 1050
460 [151] V[170]12,XX:[137] 500
480 XX[178]XX[170]MM:[139] XX[177]297 [167] XX[178]297
485 [151] V[170]12,(XX[171]LM)
498 [143]
499 [143] FIRE & MOVE HERO'S BULLETS**500
500 [139] YM[179]207 [167] 550
510 [161] MM$
515 [139] MM$[178][199](32) [167] YM[178]206:[137] 520
516 [137] 600
520 [139] XX[177]LM [167] 1500
525 [151] V[170]14,XX:XM[178]XX
550 YM[178]YM[171]DD:[139]YM[179]25[167]YM[178]LM:[139]XM[177]LM[167]XM[178]Z:Q[178][194](V[170]16):[151]V[170]16,Q[171]128
560 [151] V[170]15,YM
598 [143]
599 [143] CHECK FOR SPRITE COLLISIONS**600
600 LL[178][194](V[170]30)
604 [139]LL[178]Z[176]LL[178]CB[176]LL[178]C3[176]LL[178]48[176]LL[178]CE[176]LL[178]51[176]LL[178]60[176]LL[178]63[167]980
610 [143] ***************ENEMY JETS HIT ?
620 [139] LL[178]129 [176] LL[178]189 [176] LL[178]141 [176] LL[178]177 [167] D1[178]C1:[141]3000:[137] 710
630 [139] LL[178]132 [176] LL[178]180 [176] LL[178]135 [176] LL[178]183 [167] D2[178]C1:[141]3000:[137] 710
640 [139] LL[178]144 [176] LL[178]156 [176] LL[178]147 [176] LL[178]159 [167] D3[178]C1:[141]3000
700 [143] *************HERO HIT*******
710 [139] LL[178]66 [176] LL[178]126 [176] LL[178]78 [176] LL[178]114 [167] 750
715 [139] LL[178]72 [176] LL[178]120 [176] LL[178]75 [176] LL[178]123 [167] 750
720 [139] LL[178]96 [176] LL[178]108 [176] LL[178]144 [176] LL[178]99 [176] LL[178]111 [167] 750
730 [139]LL[178]195[176]LL[178]198[176]LL[178]201[176]LL[178]204[176]LL[178]210[167] 750
735 [139]LL[178]216[176]LL[178]225[176]LL[178]228[176]LL[178]240[176]LL[178]255[167] 750
740 [137] 810
750 HD[178]C1:[137]3100
800 [143] **************COLLISION OF JETS?
810 [139] LL[178]65 [176] LL[178]125 [176] LL[178]77 [176] LL[178]113 [167] ED[178]C1:[141] 3200
820 [139] LL[178]68 [176] LL[178]116 [176] LL[178]71 [176] LL[178]119 [167] ED[178]C2:[141] 3200
830 [139] LL[178]80 [176] LL[178]92 [176] LL[178]83 [176] LL[178]95 [167] ED[178]C3:[141] 3200
980 [143] LEAVE THIS LINE IN
990 [130] Y
994 [139] XM[177]LM [167] 997
995 [139] XX[177]LM [167] [151]V[170]16,64 :[137] 999
996 [151]V[170]16,Z :[137] 999
997 [139] XX[177]LM [167] [151]V[170]16,192:[137] 999
998 [151] V[170]16,128
999 CT[178]CT[170]C1:SC[178]SC[170]5:[139] SC[177]998 [176] CT[177]12 [167] [141] 5000
1000 [137] 140
1001 [143] *****END OF CYCLE*****************************************************
1008 [143]
1009 [143] SHIFT F OVER 'LM'************
1010 Q[178][194](V[170]CF):[151]V[170]CF,Q[170]C3
1015 [151]V[170]Z,PF[171]LM:[151]V[170]C2,PF[171]LM:[137]220
1018 [143]
1019 [143] SHIFT S OVER 'LM'************
1020 Q[178][194](V[170]CF):[151]V[170]CF,Q[170]CB
1026 [151]V[170]C4,PS[171]LF:[151]V[170]C6,PS[171]LF:[137]250
1028 [143]
1029 [143] SHIFT T OVER 'LM'************
1030 Q[178][194](V[170]CF):[151]V[170]CF,Q[170]48
1036 [151]V[170]C8,PT[171]LM:[151]V[170]C0,PT[171]LM:[137]270
1048 [143]
1049 [143] SHIFT HERO OVER 'LM'*********
1050 [151]V[170]12,LM
1051 Q[178][194](V[170]CF):[151]V[170]CF,Q[170]64
1090 [151]V[170]12,(XX[171]LM): [137] 500
1098 [143]
1099 [143] SHIFT HERO BACK_ 'LM'*********
1100 Q[178][194](V[170]CF):[151]V[170]CF,Q[171]64
1180 [151] V[170]12,XX:[137] 500
1198 [143]
1199 [143] PATTERN FOR ENEMY JETS***********************************************
1200 [131] 1,247,192,0,255,128,0,127,0
1210 [131] 32,28,2,56,28,14,60,28,30
1220 [131] 62,28,62,63,62,126,47,255,250
1230 [131] 39,255,242,3,255,224,1,255,192
1240 [131] 0,255,128,0,127,0,0,54,0
1250 [131] 0,54,0,0,20,0,0,28,0,0,28,0
1260 [131] 0,28,0,0,8,0
1298 [143]
1299 [143] PATTERN FOR 'BULLETS'*********
1300 [131] 0,8,0,0,8,0,0,8,0,0,0,0
1310 [131] 0,0,0,0,0,0,0,8,0
1320 [131] 0,8,0,0,8,0,0,0,0,0,0,0
1330 [131] 0,0,0,0,8,0,0,8,0
1340 [131] 0,8,0,0,0,0,0,0,0,0,0,0
1350 [131] 0,8,0,0,8,0,0,8,0
1398 [143]
1399 [143] PATTERN FOR 'HERO'***********
1400 [131] 0,8,0,0,28,0,0,28,0,0,28,0
1410 [131] 0,20,0,0,54,0,0,54,0,0,127,0
1420 [131] 0,255,128,1,255,192,3,255,224
1430 [131] 39,255,242,47,255,250,63,62,126
1440 [131] 62,28,62,60,28,30,56,28,14
1450 [131] 32,28,2,0,127,0,0,255,128
1460 [131] 1,247,192
1498 [143]
1499 [143] HERO'S BULLETS FOR XX>LM******
1500 [139] PF[177]LM [167] [151]V[170]16,195:[137] 1580
1505 [139] PS[177]LM [167] [151]V[170]16,204:[137] 1580
1510 [139] PT[177]LM [167] [151]V[170]16,240:[137] 1580
1515 [151] V[170]16,192:[137] 1580
1580 XM[178]XX:[151] V[170]14,(XM[171]LM)
1585 [137] 550
1998 [143]
1999 [143] *****INSTRUCTIONS*************
2000 [143]
2001 [151] 53281,6:[151] 53280,6
2005 [153]"LOAD GAME INSTRUCTIONS"
2010 [153]"YOU ARE THE PILOT OF THE JETFIGHTER AT THE BOTTOM OF THE SCREEN.";
2015 [153]" YOU CAN MOVE LEFT OR RIGHT,AS FOLLOWS..........."
2020 [153]" CRSR(DOWN) = MOVE LEFT"
2025 [153]" CRSR(RIGHT) = MOVE RIGHT"
2030 [153]"TO FIRE YOUR CANON...TAP THE SPACEBAR ONCE...BULLETS WILL APPEAR"
2032 [153]"(YOUR GUNS WILL NOT RELOAD UNTIL THE LAST SHOT LEAVES THE SCREEN)
2035 PRINT"YOU CAN SCORE 100 PTS FOR EACH ENEMY JETFIGHTER THAT YOU DESTROY,BUT ";
2040 PRINT"YOU HAVE ONLY ONE LIFE TO LOOSE SO BE CAREFUL."
2050 PRINT"(HIT ANY LETTER TO START THE GAME)"
2055 GET KK$: IF KK$="" THEN 2055
2060 IFKK$=CHR$(29)THEN2500:REM RIGHT
2065 IFKK$=CHR$(17)THEN2600 :REM LEFT
2070 IFKK$=CHR$(32)THEN2055
2098 POKE 53281,6 :POKE 53280,14
2099 K$="N":PRINT"[147]": RETURN
2100 REM *******SCORING****************
2110 REM +100 FOR EVERY ENEMY DESTROYED
2120 REM +5 FOR EVERY CYCLE SURVIVED
2130 REM -50 FOR EVERY ENEMY MISSED
2140 REM *******************************
2198 :
2499 REM PRACTISE MANEUVRE TO THE RIGHT
2500 IFXX>LMTHEN2550
2510 XX=XX+C2:IFXX>LMTHENQ=PEEK(V+CF):POKEV+CF,Q+64:POKEV+CB,XX-LM:GOTO2055
2520 POKEV+CB,XX:GOTO2055
2550 XX=XX+C2:IFXX>297THENXX=297
2560 POKEV+CB,XX-LM:GOTO2055
2599 REM PRACTISE MANEUVRE TO THE LEFT
2600 IFXX<LNTHEN2650
2610 XX=XX-C2:IFXX<LNTHENQ=PEEK(V+CF):POKEV+CF,Q-64:POKEV+CB,XX:GOTO2055
2620 POKEV+CB,XX-LM:GOTO2055
2650 XX=XX-C2:IFXX<20THENXX=20
2660 POKEV+CB,XX:GOTO2055
2998 REM
2999 REM EXPLOSION OF JET*************
3000 EX=INT(XM/8):EY=INT((YM-50)/8)
3005 IF D1=C1 THEN YF=LM:POKEV+C1,CF
3006 IF D2=C1 THEN YS=LM:POKEV+C5,CF
3007 IF D3=C1 THEN YT=LM:POKEV+C9,CF
3008 IFXM>LMTHENQ=PEEK(V+16):POKEV+16,Q-128
3009 POKEV+CE,LM:XM=Z:YM=210:POKEV+CD,Z
3010 IF EY>22 THEN EY=22
3011 IF EY<2 THEN EY=2
3015 EE=1024+EX+40*EY:EC=55296+EX+40*EY:W=32
3020 POKE EC,8:POKE EE,81
3030 FOR X=1 TO 80 :NEXT
3040 POKE EC,7:POKE EE,86
3050 POKE EC-40,7:POKE EE-40,66
3055 POKE EC+40,7:POKE EE+40,66
3060 POKE EC-1,7:POKE EE-1,67
3065 POKE EC+1,7:POKE EE+1,67
3070 FOR X=1 TO 200:NEXT
3072 POKE EC-41,1:POKE EE-41,77:POKE EC-39,1:POKE EE-39,78
3074 POKE EC+41,1:POKE EE+41,77:POKE EC+39,1:POKE EE+39,78
3076 POKE EC-82,Z:POKE EE-82,77:POKE EC-80,Z:POKE EE-80,66
3078 POKE EC+82,Z:POKE EE+82,77:POKE EC+80,Z:POKE EE+80,66
3080 POKE EC-78,Z:POKE EE-78,78:POKE EC-2,Z:POKE EE-2,67
3082 POKE EC+78,Z:POKE EE+78,78:POKE EC+2,Z:POKE EE+2,67
3084 FOR X=1 TO 300:NEXT
3086 POKE EE,W:POKE EE+1,W:POKE EE+40,W:POKE EE-40,W:POKE EE-1,W:POKE EE-39,W
3088 POKEEE-41,W:POKE EE-39,W:POKEEE+41,W:POKE EE+39,W:POKEEE-2,W:POKE EE-82,W
3090 POKEEE-80,W:POKE EE-78,W:POKEEE+78,W:POKE EE+80,W:POKEEE+C2,W:POKE EE+82,W
3091 IF HD=1 THEN GOTO 4000
3092 POKEV+30,0:SC=SC+100:EX=Z:EY=Z:LL=Z
3093 IFD1>Z ANDPEEK(V+C3)=CFTHENFF=400
3094 IFD2>Z ANDPEEK(V+C7)=CFTHENFS=400
3095 IFD3>Z ANDPEEK(V+CA)=CFTHENFT=400
3096 PRINT" [157][157][157][157][157]"TS+SC
3097 RETURN
3098 :
3099 REM HERO SHOT BY BULLETS**********
3100 EX=INT(XX/8):EY=22:POKEV+C7,Z:POKEV+CC,LM:GOTO 3015
3199 REM JETS COLLIDE*************
3200 HD=C1:EX=INT(XX/8):EY=22:POKEV+CC,Z
3210 ON ED GOTO 3211,3212,3213
3211 POKEV+C1,Z:GOTO 3015
3212 POKEV+C5,Z:GOTO 3015
3213 POKEV+C9,Z:GOTO 3015
3998 REM
3999 REM END OF GAME WRAP UP**********
4000 POKEV+21,Z:PRINT"[147]
4030 TT[178]TS[170]SC:[153]"YOUR TOTAL SCORE IS "TT;"CMD WAIT PTS."
4040 [139] TT[177]4000 [167] R$[178]"N 'ACE'":[137] 4100
4050 [139] TT[177]3000 [167] R$[178]" 'HOT'":[137] 4100
4060 [139] TT[177]2000 [167] R$[178]" 'SHARP-SHOOTER'":[137] 4100
4070 [139] TT[177]1000 [167] R$[178]" 'BIRDMAN'":[137] 4100
4080 [139] TT[177]200 [167] R$[178]" 'BEGINNER'":[137] 4100
4090 R$[178]" 'KAMIKAZE'"
4100 [153]"BECAUSE OF YOUR EXPLOITS,YOU WILL BE"
4110 [153]"KNOW AS A";R$;" PILOT."
4120 [153]"THE HIGHEST SCORE BEFORE YOUR MISSION"
4130 [153]"WASWAIT"JS" BY WAIT'" JP$;"'."
4140 [139] TT[178][179]JS [167] 6000
4150 [153]"YOUR SCORE IS A NEW HIGHEST FOR THIS"
4160 [153]"DISK, AND IT WILL BE ENTERED ALONG WITH"
4170 [153]"YOUR NAME OR NICK-NAME AS THE NEW"
4180 [153]"RECORD."
4190 JS[178]TT
4200 [133]"ENTER YOUR NAME";PP$
4205 [137]4250
4210 [159]15,8,15:[159] 3,8,3,"@0: AIRBATTLESCORE,S,W":[132]15,A$,B$,C$,D$
4220 [139] A$[179][177]"00"[167][160]3:[160]15:[137]4300
4225 [152]3,JS;[199](13);
4230 [152]3,PP$;[199](13);
4240 [160] 3 :[160]15
4250 [153]" NEW RECORD HAS BEEN ENTERED " :JP$[178]PP$
4260 [137] 6000
4300 [153]"ON THE DISK WAS NOT IN THE DRIVE,YOUR NEW HIGH SCORE WAS NOT ";
4305 [153]"RECORDED ! ! ! ! ! CLOSE"
4310 [137] 6000
4998 [143]
4999 [143] END OF MISSION WRAP UP********
5000 [151]V[170]21,Z:[153]"LOAD"
5020 [153]" CONGRATULATIONS, YOU HAVE SURVIVED A MISSION.":TS[178]TS[170]SC:SC[178]Z
5030 X[178]TI
5031 [161]KK$:[139]KK$[178]"Y"[167]5160
5032 [139]TI[177]X[170]200[167]5040
5033 [137] 5031
5040 [153]" WE ARE STILL IN DESPRITE NEED OF"
5050 [153]" EXPERIENCED FIGHTER PILOTS. THE ENEMY "
5055 [153]" IS SENDING FASTER PLANES AGAINST OUR DEFENDERS."
5075 [129] X[178]1 [164] 5000:[130]
5080 [153]"WILL YOU VOLUNTEER FOR ANOTHER MISSION? ( Y OR NCLOSE) ?"
5090 TM[178]TI[170] 500
5100 [139] TI[177]TM [167] 5150
5110 [161] K$: [139] K$[178]"" [167] 5100
5120 [139] K$[178]"N" [167] [153]"LOAD":[137]4030
5130 [139] K$[178]"Y" [167] 5150
5140 [137] 5100
5150 [153]" THANK-YOU FOR VOLUNTEERING"
5155 [129] X[178]1 [164] 1800: [130]
5158 [153]" WE WILL TRY TO GIVE YOU A FASTER JET THIS TIME.
5159 FOR X=1 TO 1500 : NEXT X
5160 D=D+C2 :PRINT" GOOD LUCK . ON YOUR NEXT MISSION !":IFD>20 THEN D=20
5190 FOR X=1 TO 2100 : NEXT X
5200 GOTO 125
6000 POKEV+C1,Z:POKEV+C3,Z:POKEV+C5,Z:POKEV+C7,Z:POKEV+C9,Z:POKEV+CA,Z:POKEV+CC,LM:POKEV+CE,LM
6010 PRINT" DO YOU WANT TO TRY AGAIN ? Y OR N ?[145][145]"
6020 GETKK$:IFKK$=""THEN6020
6030 IFKK$="Y"THEN 6060
6040 IFKK$<>"N"THEN6020
6050 PRINT"[147]":GOTO60500
6060 SC=Z:TT=Z:D=6:HD=Z:CT=1:YM=LM:MM=14:DD=12:ED=Z:D1=Z:D2=Z:D3=Z:TS=Z
6070 XX=160:YY=225:POKEV+CB,XX:POKEV+CC,YY:POKEV+CE,LM:POKEV+CF,Z
6100 GOTO125
60500 END
60502 POKE53272,23
60505 PRINT"[146][147]LOAD"CHR$(34)"GAMES"CHR$(34)",8"
60510 PRINT"":POKE198,4:POKE631,13:POKE632,82:POKE633,213:POKE634,13
60515 END